home *** CD-ROM | disk | FTP | other *** search
/ MPEG / MPEG - Disc 2.bin / win / vcdview.mst < prev   
Text File  |  1996-02-26  |  4KB  |  181 lines
  1. '$DEFINE DEBUG  ''Define for script development/debugging
  2.  
  3. '$INCLUDE 'setupapi.inc'
  4.  
  5. 'âOâïü[âvû╝
  6. CONST MYGROUP = "MediaView"
  7.  
  8. ''Dialog ID's
  9. CONST WELCOME       = 100
  10. CONST ASKQUIT       = 200
  11. CONST DESTPATH      = 300
  12. CONST EXITFAILURE   = 400
  13. CONST EXITQUIT      = 600
  14. CONST EXITSUCCESS   = 700
  15. CONST EXITSUCCESS2  = 750
  16. CONST OPTIONS       = 800
  17. CONST BADPATH       = 6400
  18.  
  19. ''Bitmap ID
  20. CONST LOGO = 1
  21.  
  22. GLOBAL DEST$        ''Default destination directory.
  23.  
  24. DECLARE SUB Install
  25. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  26.  
  27. INIT:
  28.     
  29.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  30.  
  31.     SetBitmap CUIDLL$, LOGO
  32.     SetTitle "MediaView âZâbâgâAâbâv"
  33.  
  34.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  35.     IF szInf$ = "" THEN
  36.         szInf$ = GetSymbolValue("STF_CWDDIR") + "VCDVIEW.INF"
  37.     END IF
  38.     ReadInfFile szInf$
  39.  
  40.     DEST$ = MID$(GetWindowsDir, 1, 1) + ":\VCDVIEW"
  41.  
  42.  
  43. WELCOME:
  44.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", 0, "")
  45.     IF sz$ = "CONTINUE" THEN
  46.         UIPop 1
  47.     ELSE
  48.         GOSUB ASKQUIT
  49.         GOTO WELCOME
  50.     END IF
  51.  
  52.  
  53. GETPATH:
  54.     SetSymbolValue "EditTextIn", DEST$
  55.     SetSymbolValue "EditFocus", "END"
  56. GETPATHL1:
  57.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", 0, "")
  58.     DEST$ = GetSymbolValue("EditTextOut")
  59.  
  60.     IF sz$ = "CONTINUE" THEN
  61.         IF IsDirWritable(DEST$) = 0 THEN
  62.             GOSUB BADPATH
  63.             GOTO GETPATHL1
  64.         END IF
  65.         UIPop 1
  66.     ELSEIF sz$ = "REACTIVATE" THEN
  67.         GOTO GETPATHL1
  68.     ELSEIF sz$ = "BACK" THEN
  69.         UIPop 1
  70.         GOTO WELCOME
  71.     ELSE
  72.         GOSUB ASKQUIT
  73.         GOTO GETPATH
  74.     END IF
  75.  
  76.     Install
  77.  
  78.  
  79. QUIT:
  80.     ON ERROR GOTO ERRQUIT
  81.  
  82.     IF ERR = 0 THEN
  83.         dlg% = EXITSUCCESS
  84.     ELSEIF ERR = STFQUIT THEN
  85.         dlg% = EXITQUIT
  86.     ELSE
  87.         dlg% = EXITFAILURE
  88.     END IF
  89. QUITL1:
  90.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  91.     IF sz$ = "REACTIVATE" THEN
  92.         GOTO QUITL1
  93.     END IF
  94.     UIPop 1
  95.  
  96.     END
  97.  
  98. ERRQUIT:
  99. '    i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  100.     END
  101.  
  102.  
  103.  
  104. BADPATH:
  105.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  106.     IF sz$ = "REACTIVATE" THEN
  107.         GOTO BADPATH
  108.     END IF
  109.     UIPop 1
  110.     RETURN
  111.  
  112.  
  113.  
  114. ASKQUIT:
  115.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  116.  
  117.     IF sz$ = "EXIT" THEN
  118.         UIPopAll
  119.         ERROR STFQUIT
  120.     ELSEIF sz$ = "REACTIVATE" THEN
  121.         GOTO ASKQUIT
  122.     ELSE
  123.         UIPop 1
  124.     END IF
  125.     RETURN
  126.  
  127.  
  128.  
  129. '**
  130. '** Purpose:
  131. '**     Builds the copy list and performs all installation operations.
  132. '** Arguments:
  133. '**     none.
  134. '** Returns:
  135. '**     none.
  136. '*************************************************************************
  137. SUB Install STATIC
  138.  
  139.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  140.     SrcDrv$ = Mid$(SrcDir$,1,1)
  141.     CreateDir DEST$, cmoNone
  142.  
  143.     AddSectionFilesToCopyList "VCDVIEW", SrcDir$, DEST$
  144.     AddSectionFilesToCopyList "SoftPEGINI", SrcDir$, GetWindowsDir
  145.     CopyFilesInCopyList
  146.  
  147.     CreateProgmanGroup MYGROUP, "", cmoNone
  148.     ShowProgmanGroup  MYGROUP, 1, cmoNone
  149.     CreateProgmanItem MYGROUP, "MediaView", MakePath(DEST$,"VCDEXEC.EXE"), "", cmoOverwrite
  150.     CreateProgmanItem MYGROUP, "Æìê╙ÄûìÇ", MakePath(DEST$,"README.TXT"), "", cmoOverwrite
  151.     CreateProgmanItem MYGROUP, "æÇì∞Éαû╛", MakePath(DEST$,"VCDVIEW.HLP"), "", cmoOverwrite
  152.  
  153.     CreateIniKeyValue GetWindowsDir + "WIN.INI", "MediaView", "CDDrive", Mid$(SrcDir$, 1, 1), cmoOverwrite
  154.  
  155. END SUB
  156.  
  157.  
  158.  
  159. '**
  160. '** Purpose:
  161. '**     Appends a file name to the end of a directory path,
  162. '**     inserting a backslash character as needed.
  163. '** Arguments:
  164. '**     szDir$  - full directory path (with optional ending "\")
  165. '**     szFile$ - filename to append to directory
  166. '** Returns:
  167. '**     Resulting fully qualified path name.
  168. '*************************************************************************
  169. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  170.     IF szDir$ = "" THEN
  171.         MakePath = szFile$
  172.     ELSEIF szFile$ = "" THEN
  173.         MakePath = szDir$
  174.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  175.         MakePath = szDir$ + szFile$
  176.     ELSE
  177.         MakePath = szDir$ + "\" + szFile$
  178.     END IF
  179. END FUNCTION
  180.  
  181.